345 POKE 53280,14:POKE53281,14:POKE53272,23
370 PRINT"[147]":POKE646,0:PRINTTAB(7)"[193]   [205] [207] [206]   [211] [197] [195] [207] [213] [210] [211]
375 [153][163]18)"PAR":[153][163]6)"(null)T. (null)OUIS-(null)ARIE DE (null)ONTFORT
378 PRINTTAB(19)"[219]
380 [153]"10 SECONDES D'ATTENTE, S.V.P...
390 FORAA=1TO4000:NEXT
440 CM=12288:CX=55296:GOSUB605
442 POKE53272,(PEEK(53272)AND240)OR12
455 FORI=824TO831:READN:POKECM+I,N:NEXT:REM EMPL M POUR SEDILLE
460 FORI=784TO791:READN:POKECM+I,N:NEXT:REM I DEUX PTS
465 FORI=800TO807:READN:POKECM+I,N:NEXT:REM @ U ACC GRAVE PPRCLP
470 FORI=928TO935:READN:POKECM+I,N:NEXT:REM H POUR E ACC CIRC
475 FORI=816TO823:READN:POKECM+I,N:NEXT:REM SIGNE + COMME PPRCLP FOR U 2 PTS
480 FORI=832TO839:READN:POKECM+I,N:NEXT:REM \ SIGNE PR E ACC GRAVE
485 FORI=888TO895:READN:POKECM+I,N:NEXT:REM P POUR A ACC CIRC
490 FORI=944TO951:READN:POKECM+I,N:NEXT:REM L POUR E ACC AIGU
495 FORI=952TO959:READN:POKECM+I,N:NEXT:REM:Y POUR A ACC GRAVE
500 FORI=960TO967:READN:POKECM+I,N:NEXT:REM U POUR U ACC CIRC
505 FORI=968TO975:READN:POKECM+I,N:NEXT:REM O POUR O ACC CIRC
510 FORI=936TO943:READN:POKECM+I,N:NEXT:REM J FOR E 2 PTS
520 FORI=776TO783:READN:POKECM+I,N:NEXT:REM:K FOR I ACC CIRC
595 PRINT"[147]"
600 GOTO900
605 POKE56334,PEEK(56334)AND254
610 POKE1,PEEK(1)AND251
615 FORI=0TO2047:POKECM+I,PEEK(CX+I):NEXT
620 POKE1,PEEK(1)OR4
625 POKE56334,PEEK(56334)OR1
630 RETURN
635 DATA 0,0,60,96,96,96,60,16:REM C SEDILLE
640 DATA 40,0,56,24,24,24,60,0:REM I DEUX PTS
645 DATA 32,16,102,102,102,102,62,0:REM U ACC GRAVE
650 DATA 8,20,60,102,126,96,60,0:REM E ACC CIRC
655 DATA 36,0,102,102,102,102,62,0:REM U 2 PTS
660 DATA 32,16,60,102,126,96,60,0:REM E ACC CIRC
665 DATA 8,20,60,6,62,102,62,0:REM A ACC CIRC
670 DATA 4,8,60,102,126,96,60,0:REM E ACC AIGU
675 DATA 16,8,60,6,62,102,62,0:REM A ACC GRAVE
680 DATA 24,36,102,102,102,102,62,0:REM U ACC CIRC
685 DATA 24,36,60,102,102,102,60,0:REM O ACC CIRC
690 DATA 36,0,60,102,126,96,60,0:REM E 2 PTS
700 DATA 16,40,56,24,24,24,60,0:REM K I ACC CIRC
900 PRINT"[147]":PRINTTAB(9)"[193] MON SECOURS,
910 [153]"(null) DOUCE ET DIVINE (null)ARIE,":[153][163]9)"ATN MON SECOURS!
920 PRINT"[202]E SOUFFRE ET G[182]MIS TOUS LES JOURS.
930 [153]"ATN MES MAUX SOYEZ ATTENDRIE,":[153]"STR$ABSLIVREZ-M'EN, JE (null)OUS";
940 [153]" EN PRIE.":[153][163]9)"ATN MON SECOURS! [BIS]
950 FORAA=1TO750:NEXT:VS=1:GOTO1300
960 PRINT"[147]":PRINTCHR$(144);
965 PRINT"[147]":PRINTTAB(9)"[211]ECOUREZ-MOI,"
967 PRINT"[214]OUS [180]TES PLEINE DE CL[182]MENCE
970 [153][163]9)"(null)ECOUREZ-MOI!":[153]"(null)OUT EST SOUMIS USR (null)OTRE LOI.
980 PRINT"[196]ONNEZ-MOI DONC QUELQUE ASSISTANCE
990 [153]"(null)U BIEN LE DON DE PATIENCE.":[153][163]9)"(null)ECOUREZ-MOI! [BIS]
1000 FORAA=1TO750:NEXTAA:VS=2:GOTO1470
1005 PRINT"[147]"
1010 PRINTTAB(9)"[208]ARLEZ, PARLEZ!
1015 [153]"(null)OUS POUVEZ TOUT, PUISSANTE (null)EINE.
1020 PRINTTAB(9)"[208]ARLEZ, PARLEZ!":PRINT"[202]E SUIS GU[182]RI SI [214]OUS VOULEZ.
1030 [153]"STR$'UN SEUL MOT (null)OUS ROMPREZ MA":[153][163]28)"CHANEWNE,
1040 PRINT"[197]T [214]OUS FEREZ CESSER MA PEINE."
1045 PRINTTAB(9)"[208]ARLEZ, PARLEZ! [BIS]
1050 [129]AA[178]1[164]750:[130]AA:VS[178]3:[137]1470
1055 [153]"LOAD"
1060 [153][163]9)"(null)'SGNTES-(null)OUS PLUS":[153]"(null)E REMNOTDE DES INCURABLES?
1070 PRINTTAB(9)"[206]'[180]TES-[214]OUS PLUS":PRINT"[204]A SANT[182] DES PAUVRES PERCLUS,
1080 [153]"(null)E GRAND REFUGE DES COUPABLES,
1090 PRINT"[204]'UNIQUE APPUI DES MIS[182]RABLES?":PRINTTAB(9)"[206]'[180]TES-[214]OUS PLUS?";
1100 PRINT" [BIS]":VS=4:GOTO1470
1105 PRINT"[147]"
1110 PRINTTAB(9)"[198]RAPPEZ, FRAPPEZ,":PRINT"[204]'ENNEMI ME PRESSE ET ME TENTE,
1120 [153][163]9)"ASCRAPPEZ, FRAPPEZ,":[153]"VALCRASEZ, FOULEZ USR (null)OS PIEDS.
1130 PRINT"[211]OUS [214]OTRE MAIN TOUTE-PUISSANTE,
1140 [153]"(null)OUT L'ENFER PRENDRA L'ABSPOUVANTE."
1150 [153][163]9)"ASCRAPPEZ, FRAPPEZ! [BIS]":[129]AA[178]1[164]750:[130]AA:VS[178]5:[137]1470
1160 [153]"LOAD":[153][163]9)"(null)UOI! SOUS (null)OS YEUX
1170 PRINT"[202]E MOURRAI DANS MON INDIGENCE?
1180 [153][163]9)"(null)UOI! SOUS (null)OS YEUX":[153]"MID$E PABSRIRAI, (null)EINE DES CIEUX?
1190 PRINT"[206]ON, NON, J'AI MIS MON ESP[182]RANCE
1200 [153]"VALN (null)OTRE NOM PLEIN D'ABONDANCE.
1210 PRINTTAB(9)"[209]UOI! SOUS [214]OS YEUX? [BIS]":FORAA=1TO750:NEXTAA:VS=6
1220 GOTO1470
1300 DIMFR(73)
1310 FR(0)=0:FR(1)=536:FR(2)=568:FR(3)=602:FR(4)=637:FR(5)=675:FR(6)=716
1320 FR(7)=758:FR(8)=803:FR(9)=851:FR(10)=902:FR(11)=955:FR(12)=1012
1330 FR(13)=1072:FR(14)=1136:FR(15)=1204 :FR(16)=1275:FR(17)=1351:FR(18)=1432
1340 FR(19)=1517:FR(20)=1607: FR(21)=1703:FR(22)=1804:FR(23)=1911:FR(24)=2025
1350 FR(25)=2145:FR(26)=2273:FR(27)=2408:FR(28)=2551:FR(29)=2703:FR(30)=2864
1360 FR(31)=3034:FR(32)=3215:FR(33)=3406:FR(34)=3608:FR(35)= 3823:FR(36)=4050
1370 FR(37)=4291:FR(38)=4547:FR(39)=4817:FR(40)=5103:FR(41)=5407:FR(42)=5728
1380 FR(43)=6069:FR(44)=6430:FR(45)=6812:FR(46)=7217:FR(47)=7647:FR(48)=8101
1390 FR(49)=8583:FR(50)=9094:FR(51)=9634:FR(52)=10207:FR(53)=10814:FR(54)=11457
1400 FR(55)=12139:FR(56)=12860:FR(57)=13625:FR(58)=14435:FR(59)=15294
1410 FR(60)=16203
1420 FR(61)=17167:FR(62)=18188:FR(63)=19269:FR(64)=20415:FR(65)=21629
1430 FR(66)=22915:FR(67)=24278:FR(68)=25721:FR(69)=27251:FR(70)=28871
1440 FR(71)=30588:FR(72)=32407:GOSUB2500
1450 IFVS=1THEN1480
1470 RESTORE:FORL=1TO104:READN:IFN<>9THENNEXT:GOTO1530
1480 L1=54272:L2=54279:L3=54286
1490 H1=L1+1:H2=L2+1:H3=L3+1:VL=54296
1520 V1=L1+4:V2=L2+4:V3=L3+4:W1=16:W2=64:W3=16:F1=19.2
1530 POKEVL,15:T=TI
1540 POKEV1+1,6:POKEV1+2,175
1550 POKEV2+1,12:POKEV2+2,27:POKEL1+10,8
1560 POKEV3+1,0:POKEV3+2,191
1570 POKEV1,W1:POKEV2,W2:POKEV3,W3
1572 READZ:IFVS=1THENPRINTCHR$(5)V1$(Z);:GOTO1580
1574 IFVS=>2THENPRINTCHR$(5)V2$(Z);
1580 READS
1585 IFS=0THENFORSN=L1TOVL:POKESN,0:NEXTSN:FORAA=1TO1500:NEXT:GOTO1685
1590 IFS=4.5THENPOKEVL,7
1600 READX1,X2,X3
1610 Y1=INT(FR(X1)/256):Z1=FR(X1)-256*Y1
1615 Y2=INT(FR(X2)/256):Z2=FR(X2)-256*Y2
1620 Y3=INT(FR(X3)/256):Z3=FR(X3)-256*Y3
1630 IFX1THENPOKEH1,Y1:POKEL1,Z1:POKEV1,W1+1
1640 IFX2THENPOKEH2,Y2:POKEL2,Z2:POKEV2,W2+1
1650 IFX3THENPOKEH3,Y3:POKEL3,Z3:POKEV3,W3+1
1660 T=T+S*F1
1670 IFT>TIGOTO1670
1680 GOTO1570
1685 ONVSGOTO960,1005,1055,1105,1160,2000
1690 REM BARS 1-2
1700 DATA 0,6,0,0,0,1,1,48,51,32,2,1,0,0,39,3,1,0,0,44,4,1,46,49,39
1710 DATA 5,1,44,48,0,6,1,51,46,37
1720 DATA 7,1.1,56,44,36,8,1,0,0,39,9,1,0,0,44,10,1,0,0,41
1725 DATA 11,1,0,0,43,12,1,55,39,37
1730 REM BARS 3-4
1740 DATA 13,1,51,44,36,14,1,0,0,39,15,1,0,48,44
1745 DATA 16,1,51,46,43,17,1,0,44,41,18,1,0,46,43
1750 DATA 19,1,51,49,46,20,1,0,48,44,21,1,0,46,43
1755 DATA 22,1,56,44,36,23,1,0,0,39,24,1,0,0,44
1760 REM BARS 5-6
1770 DATA 25,1,49,39,41,26,1,0,0,43,27,1.3,0,0,39,28,3,55,51,39
1780 DATA 29,1,58,49,27,30,1,0,48,0,31,1,55,46,0
1790 REM BARS 7-8 BEGIN COURS 2E FOIS
1800 DATA 32,1,51,44,24,33,1,0,0,27,34,1,0,0,32,35,1,0,0,29
1805 DATA 36,1,0,0,31,37,1,0,39,27
1810 DATA 38,2,39,44,36,39,1,44,48,39,40,1,43,46,39,41,1,39,44,36,42,1,43,46,27
1815 REM SFFRE-GEMIS
1820 REM BARS 9-10
1830 DATA 43,1,46,49,39,44,1,44,48,39,45,1,43,46,39,46,3.6,39,44,36
1835 DATA 47,1,39,51,32:REM T JOURS
1840 DATA 48,1,56,51,36,49,1,0,53,37,50,1,0,51,36
1845 DATA 51,1,0,48,32,52,1,0,49,34,53,1,0,51,36
1850 REMBARS 11-12
1860 DATA 54,2,55,49,34,55,1,0,48,32,56,2.5,0,46,31,57,1,0,46,27
1870 DATA 58,1,56,48,27,59,1,0,51,0,60,1,0,49,0
1875 DATA 61,1,55,48,34,62,1,0,46,37,63,1,0,49,34
1880 REM BARS 13-14
1890 DATA 64,2,56,48,39,65,1,0,46,37,66,3.5,60,44,36,67,3,31,46,39:REM PRIE! A
1900 DATA 68,2,44,48,39,69,1,43,46,41
1910 REM BARS 15-16
1920 DATA 70,3,39,51,43,71,1.5,58,0,37,72,.5,56,0,36,73,1,55,0,34
1930 DATA 74,1.5,44,48,39,75,.5,0,0,37,76,1,39,0,44,77,2,36,44,39,78,1,43,46,39
1940 REM LAST BAR
1950 DATA 79,1,39,44,37,80,1,0,0,36,81,1,0,0,34,82,4.5,60,51,44,83,0,0,0,0
2000 PRINT"[147]":PRINTCHR$(5)TAB(8)"[212][207][213][212][160][208][207][213][210][160][202][197][211][213][211][160][208][193][210][160][205][193][210][201][197]":GOTO3100
2500 C1$="":C2$="":A0$=""
2520 B0$=CHR$(13)+""
2530 D1$=B0$+"":A8$="+[157]":E1$=CHR$(13)+"":E2$=CHR$(13)+""
2535 DIMV1$(83)
2540 V1$(0)=CHR$(5)+C1$:V1$(1)="[193] ":V1$(2)=A0$:V1$(3)=A0$:V1$(4)="MON "
2550 V1$(4)="MON ":V1$(5)=A0$:V1$(6)="SE":V1$(7)="COURS!":V1$(8)=A0$
2560 V1$(9)=A0$:V1$(10)=A0$:V1$(11)=B0$:V1$(12)="[207] ":V1$(13)="DOUCE "
2570 V1$(14)=A0$:V1$(15)="ET ":V1$(16)="DI":V1$(17)=A0$:V1$(18)="VI"
2580 V1$(19)="NE ":V1$(20)=A0$:V1$(21)="[205]A":V1$(22)="RI":V1$(23)=A0$
2590 V1$(24)=A0$:V1$(25)="E,":V1$(26)=D1$:V1$(27)="[145]"
2600 V1$(28)="[193] ":V1$(29)="MON ":V1$(30)=A0$:V1$(31)="SE":V1$(32)="COURS!"
2610 V1$(33)=A0$:V1$(34)=A0$:V1$(35)=B0$:V1$(36)=A0$
2620 V1$(37)="[202]E ":V1$(38)="SOUFFRE ":V1$(39)="ET ":V1$(40)="G[182]"
2630 V1$(41)=A0$:V1$(42)="MIS ":V1$(43)="TOUS ":V1$(44)=A0$:V1$(45)="LES "
2640 V1$(46)="JOURS.":V1$(47)=B0$+"[193] ":V1$(48)="MES "
2650 V1$(49)="MAUX ":V1$(50)="SOY":V1$(51)="EZ ":V1$(52)="AT"
2660 V1$(53)="TEN":V1$(54)="DRI":V1$(55)=A0$:V1$(56)="E,"+B0$
2670 V1$(57)="[196][182]":V1$(58)="LI":V1$(59)="VREZ-":V1$(60)="M'EN, "
2680 V1$(61)="JE ":V1$(62)="[214]OUS ":V1$(63)="EN ":V1$(64)="PRI":V1$(65)=A0$
2690 V1$(66)="E. "+D1$
2700 V1$(67)="[145][193] ":V1$(68)="MON ":V1$(69)="SE":V1$(70)="COURS!"
2710 V1$(72)=A0$:V1$(73)=A0$:V1$(74)=A0$
2715 V1$(74)=" [BIS]":V1$(83)=CHR$(144)
2800 DIMV2$(83):V2$(0)=C2$:V2$(1)=A8$
2810 V2$(11)=E1$:V2$(12)=A8$:V2$(27)=E2$:V2$(28)=A8$
2820 V2$(36)=E1$:V2$(37)=A8$:V2$(47)=E1$+A8$:V2$(56)=E1$:V2$(57)=A8$
2830 V2$(66)=E2$:V2$(67)=A8$:V2$(83)=CHR$(144)
3000 RETURN
3100 FORAA=1TO3000:NEXT:PRINT"[147]"
3200 PRINTTAB(14)"[209][213][201][212][212][197][210] - [209]
3210 [153][163]12)"(null)VAL(null)(null)-(null)(null)(null)RIGHT$(null)(null)VAL - (null)
3220 POKE198,0
3230 GETA$:IFA$=""THEN3230
3240 IFA$="Q"THENEND
3250 IFA$="M"THENCLR:PRINTCHR$(154):LOAD"MUSIQUE-MEL[210][145]L[182][145]L[144][147]Lu[147]L[249][146]L[147]L[228][151]

 20